Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.2r/card_4851.txt

Text File | 1989-02-26 | 23KB | 985 lines

-- card: 4851 from stack: in.2r
-- bmap block id: 2517
-- flags: 4000
-- background id: 3091
-- name: Index
----- HyperTalk script -----
on opencard
  set scroll of card field "power tips" to 0
  pass opencard
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=126 top=266 right=315 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XCMDS
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "XCMDs"

end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=126 top=314 right=335 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  listButton "XCMDs"

end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=61 top=266 right=315 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XFCNs
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "XFCNs"

end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=61 top=314 right=335 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  listButton "XFCNs"

end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=191 top=266 right=315 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 29007 / 29007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "Functions"

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=191 top=314 right=335 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  listButton "Functions"

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=256 top=314 right=335 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  listButton "Scripts"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=256 top=266 right=315 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 1060 / 1060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripts
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "Scripts"

end mouseUp



-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=175 top=79 right=95 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Issue


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=175 top=97 right=113 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date


-- part 31 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=89 top=121 right=144 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Link this stack...
----- HyperTalk script -----
on mouseUp
  --
  --Original script by Steve Drazga, ART Incorpoated
  --XFCNs used: fileName
  --XCMDs used: none
  --HANDLERS used: none
  --FUNCTIONS used: none
  --
  if the optionkey is down then pass mouseup

  put "You can link another stack to the Developer Stack"
  answer "This will install a button in another stack." with "Cancel" or "OK"
  if it is "Cancel" then
    play oops
    hide message window
    exit mouseup
  end if

  put "Please select the destination stack"
  put filename("STAK") into thefile
  if thefile is empty then
    play oops
    hide message window
    exit mouseup
  end if

  set cursor to 4
  put "Thank you.  Please wait..."
  choose button tool
  put the long name of this stack into gohere
  delete word 1 of gohere
  put "go to " before gohere
  put "on mouseup" into first line of buttonscript
  put "visual barn door close to black" into second line of buttonscript
  put "visual barn door open to gray" into third line of buttonscript
  put "visual barn door close" into fourth line of buttonscript
  put "push this card" into fifth line of buttonscript
  put gohere into sixth line of buttonscript
  put "end mouseup" into seventh line of buttonscript

  set visible of background button "Developer Stack" to true
  click at loc of background button "Developer Stack"
  domenu copy button
  set visible of background button "Developer Stack" to false
  choose browse tool
  set cursor to 4

  push card
  set lockmessages to true
  go to thefile
  set cursor to 3
  put "Just click where you want the button placed."
  repeat while the mouseclick is false
  end repeat
  set cursor to 0
  put "Thank you.  Please wait..."
  put the Mouseloc into PutItHere
  domenu paste button
  set loc of button "Developer Stack" to PutItHere
  set the script of button "Developer Stack" to buttonscript
  choose browse tool
  pop card
  set lockmessages to false
  hide message window
end mouseUp


-- part 34 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=226 right=240 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size2
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  if the freesize of this stack is 0 then exit mouseup
  put the userlevel into temp
  set userlevel to 5
  domenu "compact stack"
  set userlevel to temp
  put the size of this stack into card field "StackSize"
  put the freesize of this stack into card field "Wasted"
end mouseup



-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=226 right=240 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Wasted


-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=213 right=227 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: StackSize


-- part 37 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=213 right=227 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size1
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  put the size of this stack into card field "StackSize"
  put the freesize of this stack into card field "Wasted"
end mouseup



-- part 39 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=314 right=335 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  listButton "Buttons"
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=266 right=315 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlButton "Buttons"
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=266 right=315 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 22999 / 22999
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quick Ref
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlButton "Quick Ref"
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=449 top=266 right=315 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlbutton index
end mouseUp




-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=314 right=335 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  listButton "Quick Ref"
end mouseUp



-- part 47 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=449 top=314 right=335 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sort Index
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  set cursor to 4
  put sortitems(card field index,true) into card field index

end mouseUp



-- part 53 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=288 top=76 right=209 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Power Tips
----- HyperTalk script -----
on mousewithin
  --
  --
  --hypertext technique by Steve Drazga, ART Incorporated
  --if you use this in your scripts please include these 2 lines.
  --
  --
  global selectedWord

  if the locktext of the target is true then   --unlock the field if
    set locktext of target to false            --it is locked.
  end if

  if selection is not empty then  --something was selected
    put selection into SelectedWord

    if space is in SelectedWord then  --the user selected more than 1 word
      click at loc of target       --so we will clear the selection
      exit mousewithin             --and exit to wait for another selection
    end if

    --
    --this is the section where you do something with the selection
    --
    if SelectedWord is "asterisk" then
      play boing
      answer "Yes, this IS an example!"
      click at loc of target
    else
      if SelectedWord is "bill" then
        show button "bill"
      else
        if selectedWord is "Drazga" then
          visual iris open to gray
          visual iris close to black
          visual iris open to gray
          visual iris close
          go background information
        else
          play "oops"
          answer "Do you see any asterisk there?!!!"
          click at loc of target
        end if
      end if
    end if
    --
    --
    --
  end if
end mousewithin



-- part 55 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=242 top=83 right=120 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 21240 / 21240
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bill
----- HyperTalk script -----
on mouseUp
  play boing
  answer "Hey! Don't click on his head!!"
  hide the target
end mouseUp



-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=149 right=238 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 58 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=75 right=118 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  visual iris open to gray
  visual iris close to black
  visual iris open to gray
  visual iris close
  go background information
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=120 right=163 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  visual barn door close to black
  visual barn door open
  pop card
end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=165 right=208 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  go first card of home
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=210 right=253 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  domenu "open stack..."
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=255 right=298 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  visual venetian blinds to gray
  visual venetian blinds to inverse
  visual venetian blinds
  go to background "Mini Hyperstation"
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  if menubar("©1988SDrazga") then hide menubar else show menubar
end mouseUp



-- part 22 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=15 top=206 right=315 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: XFCNs


-- part 7 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=79 top=206 right=315 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: XCMDs


-- part 23 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=144 top=206 right=315 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Functions


-- part 48 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=209 top=206 right=315 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scripts


-- part 49 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=273 top=206 right=315 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Buttons


-- part 50 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=338 top=206 right=315 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Quick Ref


-- part 51 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=402 top=206 right=315 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Authors...


-- part 65 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=285 top=72 right=315 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: index
----- HyperTalk script -----
on mousedown
  set locktext of target to false
  click at the clickloc
  click at the clickloc
  put selection into selectedWord
  set locktext of target to true

  if selectedWord is not empty then
    visual dissolve to inverse
    visual dissolve
    go card selection
  end if
end mousedown




-- part contents for card part 7
----- text -----
DeProtect,Shutdown,SoundCapToRes,DoList,
StdFile,ShowMenu,EnableMenu,CheckMenu,
ChangeMenu,PopUpMenu,ImportPict,Talk,Color,doRestart,sendSerial,HyperSND,GetDANames,OSErr,ResCopy,SetVolume,DeleteFile2,DispPict,PrintClip,BarButton,CommWrite,CommInit,InitMidi,ResetMIDI,TxMIDI ,MungeMCTB,ResetPrinter,Stripper,

-- part contents for card part 22
----- text -----
FileName,NewFileName,NewMenu,DeleteMenu,FileModDate,MoveFile,RenameFile,DeleteFile,PopUpMenu,sortItems,NumberOfDAs,MultiFinder,isRunning,subLaunch,lower,upper,initialCaps,PopUp,FontName,FontSize,GetVolume,ScreenSize,FileLength,MenuBar,Files,CopyFile,CStoHCdateconversion,CommRead,RxMIDI,InKey,FileType,FileCreator,ChangeFileType,FileVisFlag,SetFile,Interpolate,Resources,SortReals,SortRealsII,Strip,thePixel,ReadCat,HPopUpMenu,

-- part contents for card part 27
----- text -----
1.2r

-- part contents for card part 28
----- text -----
6/10/88

-- part contents for card part 34
----- text -----
Wasted

-- part contents for card part 37
----- text -----
Stack Size

-- part contents for card part 36
----- text -----
506689

-- part contents for card part 35
----- text -----
0

-- part contents for card part 48
----- text -----
Scroll Text Button 1,ArrowKeys,ShowScripts,HyperText Trick,ReturnkeyInField,

-- part contents for card part 53
----- text -----
             •••POWER USER TIPS•••

To go to the beginning of a specific section
(XFCNs, Scripts, etc.) hold down the command key when clicking on the button.

When you see an item in a field followed by an asterisk*, double clicking on that word will either give you more information, or take you to a linked card.
(Still waiting for those 'sticky buttons',
Bill*.)

To look at the script of any button or card, anywhere in the stack, just hold down the option key when you click on it.  To look at the script of a background hold down the shift and option keys when you click in it.

Clicking on the words 'Stack Size' below will give you the current size of the stack, not including the resources.

Clicking on the word 'Wasted' below will compact the stack.

The easiest way to access this stack when you are developing an new stack is to use the 'Link this stack' button and install a link to Developer Stack in your work-in-progress stack.  When you are fininshed with your stack, you can delete the
'Developer Stack' button.

-Steve Drazga*
-AnalytX Incorporated

-- part contents for card part 49
----- text -----
Dogear,Self Naming Button,Text Import,More Dog Ears,PinPointer,MergeStacks,CompactStacks,massCompact,

-- part contents for card part 23
----- text -----
LastPathComponent,GetFullPath,NumberofChars,FileAtRoot,VolumeName,osErr,PowerToggle,PowerCreate,noFieldDelete,noButtonDelete,daysBetweenDates,

-- part contents for card part 56
----- text -----
This stack may be freely distributed in its original form with all original messages.  It may not be sold commercially.  It is intended for educational & training purposes only and no warranty is made as to the suitablity of anything included in this stack for any specific purpose.


-- part contents for card part 50
----- text -----
Control Structures,System Messages,Commands,Constants,Functions,Properties,

-- part contents for card part 65
----- text -----
DeProtect,
ShutDown,
SoundCapToRes,
DoList,
ImportPict,
Talk,
Speak,
StdFile,
ShowMenu,
EnableMenu,
ChangeMenu,
CheckMenu,
FileName,
NewFileName,
PopUpMenu,
NewMenu,
DeleteMenu,
FileModDate,
MoveFile,
RenameFile,
DeleteFile,
LastPathComponent,
GetFullPath,
NumberofChars,
FileAtRoot,
VolumeName,
osErr,
PowerToggle,
PowerCreate,
noFieldDelete,
noButtonDelete,
Scroll Text Button 1,
HyperText Trick,
ArrowKeys,
ShowScripts,
Dogear,
More Dog Ears,
Self Naming Button,
Text Import,
Control Structures,
System Messages,
Commands,
Constants,
Functions,
Properties,PinPointer,ReturnkeyInField,sortItems,Color,doRestart,daysBetweenDates,MergeStacks,CompactStacks,NumberOfDAs,sendSerial,MultiFinder,isRunning,subLaunch,lower,HyperSND,upper,initialCaps,GetDANames,OSErr,PopUp,ResCopy,FontName,FontSize
size,GetVolume,SetVolume,ScreenSize,FileLength,MenuBar,DeleteFile2,DispPict,PrintClip,Files,BarButton,CopyFile,CStoHCdateconversion,CommRead,CommWrite,CommInit,InitMidi,ResetMIDI,TxMIDI ,RxMIDI,InKey,FileType,FileCreator,ChangeFileType,FileVisFlag,SetFile,MungeMCTB,Interpolate,ResetPrinter,Resources,SortReals,SortRealsII,Strip,Stripper,thePixel,ReadCat,HPopUpMenu,massCompact,